home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / cli / mx2src.arc / MX2NET.MOD < prev    next >
Encoding:
Text File  |  1989-01-05  |  1.6 KB  |  48 lines
  1.  
  2. (*              Copyright 1987 fred brooks LogicTek             *)
  3. (*                                                              *)
  4. (*                                                              *)
  5. (*   First Release                      12/8/87-FGB             *)
  6. (*                                                              *)
  7.  
  8. MODULE mx2net; (*$S-,$T-,$A+ *)
  9. FROM    SYSTEM  IMPORT  CODE,ADDRESS;
  10. FROM    NETWORK IMPORT  initnetwork,recframe;
  11. FROM    GEMX    IMPORT  BasePageAddress;
  12. FROM    GEMDOS  IMPORT  TermRes,Super;
  13. FROM    BIOS    IMPORT  Device;
  14. VAR
  15.        vblptr [456H]                            : POINTER TO ARRAY [0..7]
  16.                                                   OF ADDRESS;
  17.        i                                        : CARDINAL;
  18.        ssv                                      : ADDRESS;
  19.  
  20. (*      it runs as a background process in a vbl time slot              *)
  21. (*$P- *)
  22. PROCEDURE VBLrecframe; 
  23. BEGIN
  24.         CODE(02f39H,0,04a2H); (* move.l $4a2,-(sp) save BIOS pointer *)
  25.         CODE(04b9H,0,02eH,0,04a2H); (* sub 46 from pointer *)
  26.         recframe; (* check network for data *)
  27.         CODE(023dfH,0,04a2H); (* restore BIOS pointer *)
  28.         CODE(4e75H); (* rts *)
  29. END     VBLrecframe;
  30. (*$P+ *)
  31.  
  32. BEGIN
  33.         initnetwork(HSS);
  34.         i:=0;
  35.         ssv:=0;
  36.         Super(ssv);
  37.         WHILE vblptr^[i]#0H DO
  38.               INC(i);
  39.         END;
  40.          (* set up vbl vector for NETWORK input *)
  41.         vblptr^[i] := ADDRESS(VBLrecframe);
  42.         Super(ssv);
  43.     WITH BasePageAddress^ DO
  44.     TermRes(CodeLen+BssLen+LONGCARD(CodeBase-ADDRESS(BasePageAddress)),0);
  45.     END;
  46. END     mx2net.
  47.  
  48.